home *** CD-ROM | disk | FTP | other *** search
/ MacFormat 1997 January / macformat46.iso / Shareware Plus / Applications / Charting Coach / Charting Coach V2.0sw / Charting Coach V2.DXR / 00002.ls < prev    next >
Encoding:
Text File  |  1996-10-13  |  484 b   |  14 lines
  1. on exitFrame
  2.   global dayNo
  3.   set the hilite of member "yespeak" to 0
  4.   set the hilite of member "nopeak" to 0
  5.   if probablyPeak() then
  6.     set the text of field "peaktext" to the text of field "yespeak"
  7.   else
  8.     put the text of field "nopeak" & RETURN & RETURN & the text of field "noPeakreason" & the text of field "nopeakend" into field "peaktext"
  9.     put EMPTY before field "peaktext"
  10.   end if
  11.   put "Is Day #" & dayNo & " Peak Day?" into field "isPeakQuestion"
  12.   cursor(0)
  13. end
  14.